Imports Clo = Enhancements.Core.Logging
Imports Exe = Enhancements.Basic.Expressions
Imports Ref = System.Reflection
Imports Sys = System

Namespace Enhancements.Basic.Expressions.Values
    ''' <summary>The exception that is thrown when a value token representation is not possible.</summary>
    <Serializable(), DebuggerStepThrough()> _
    Public MustInherit Class ValueRepresentationException
        Inherits Exe.TokenRepresentationException

        Friend Sub New(ByVal _value As Sys.Object)
            Value = _value
        End Sub

        Private __Value As Sys.Object = 0
        ''' <summary>Gets the value that caused this exception.</summary>
        Public Property Value() As Sys.Object
            Get
                Return __Value
            End Get
            Private Set(ByVal _value As Sys.Object)
                __Value = _value
            End Set
        End Property

    End Class
End Namespace
